home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 23
/
64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64
/
spulen berechn.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
15KB
|
448 lines
1 goto10: open1,8,15
2 input#1,a,b$,c,d
3 printa,b$,c,d
4 stop
10 poke53280,0:poke53281,0:print"[147]"
20 o1=0:o2=0
100 gosub 50000:goto1000
900 rem*einfaches get
910 gety$:ify$=""then910
920 y=val(y$):ify>m1then910
930 m1=0:return
1000 rem*kerndaten
1010 printleft$(x2$,2);t1$
1020 print"1 = spule (hf-drossel)"
1030 print"2 = gegentaktwandler"
1040 print"3 = eintaktwandler"
1070 print"4 = kerntabelle"
1080 print"5 = drahttabelle"
1090 print"6 = drucken"
1100 printt2$
1110 m1=6:gosub900
1120 onygosub2000,5000,7000,3100,3200,20000
1130 goto1000
2000 rem*spule berechnen
2010 t1=1:l1=0:d1=0:b1=0:k1=0:a1=0:f1=0:x1=0:y1=0:m2=0:m3=0:m4=0
2020 gosub20140
2100 print"[147]spulendaten"
2110 print"l in henry =";:inputl1
2120 print"d kern =";:inputd1
2130 print"b kern =";:inputb1
2140 print"kz 1-3 =";:inputk1
2150 print"al in nhenry =";:inputa1
2160 print"f in herz =";:inputf1
2200 ifl1=0ord1=0orb1=0ork1=0ora1=0thenprintx3$;t6$;""t4$:gosub3800:goto1000
2210 ifk1<1ork1>3thenprintx3$;t6$;""t4$:gosub3800:goto2000
2220 ifk1<>1thenk1=2
2300 rem*kerntabelle lesen
2310 forj1=1to15
2320 ifq(j1,1)=d1andq(j1,2)=b1andq(j1,3)=k1thenx1=q(j1,4):y1=q(j1,5):goto2340
2330 next
2340 ifx1=0ory1=0thenprintx3$;t3$;""t4$:printt5$" j/n":goto2360
2350 goto2380
2360 gosub900:ify$="j"thengosub3100
2370 goto2000
2380 n1=sqr(l1/(1e-9*a1))
2400 rem*berechnung
2410 m2=0:m4=0
2420 n5=n1:n=n5:gosub7000:ifm4=1thengoto2000
2430 e1=d3:e2=d4:na=n5:ma=m2:ra=r:ra$=r$:la=l:la$=l$:fa=fe
2440 iff1<>0thenz3=2*(NULL)*f1*l1:r=z3:gosub3700:r2=r:r2$=r$
2460 qq=z3/r9:qq=int(qq*10)/10
2600 print"[147]spulendaten"
2610 print"l in henry =";l1
2620 print"d kern =";d1
2630 print"b kern =";b1
2640 print"kz 1-3 =";k1
2650 print"al in nhenry =";a1
2660 print"f in herz =";f1
2670 print"n =";na
2680 ifma=0thenprinttab(24)"[145]windungen"
2690 ifma=1thenprinttab(24)"[145]*2 wind.par."
2700 print"d nennd. =";e1;tab(24)"cul"
2710 print"d aussend. =";e2;tab(24)"cul"
2720 print"rcu =";ra;tab(24)ra$
2730 print"xl induktanz =";r2;tab(24)r2$
2740 print"q spulenguete=";qq
2750 print"fcu =";fa;tab(24)"kupferfuellfak."
2800 gosub3010:ifm4=1then1000
2810 gosub7080:goto2430
3000 rem*drahtstaerke aendern
3010 printleft$(x3$,22);t7$;" dn j/n":m3=1:gosub3800
3020 ify$<>"j"thenm4=1:return
3030 print"dn+1=f1 dn-1=f3":gosub900
3040 ify$=chr$(133)andj2=31andma=1thenreturn
3050 ify$=chr$(133)thenj2=j2+1:ifj2>31thenj2=26:ma=1:goto3060
3055 goto3070
3060 d3=q1(j2,1):d4=q1(j2,2):z1=q1(j2,3):return
3070 ify$=chr$(134)thenj2=j2-1:ifj2<26andm2=1thenj2=31:ma=0
3080 d3=q1(j2,1):d4=q1(j2,2):z1=q1(j2,3):return
3090 return
3100 rem*kerntabelle lesen
3110 print"[147]kerntabelle"
3120 print"d kern","b kern","kz","ln"
3130 forj=1to15
3140 printq(j,1),q(j,2),q(j,3),q(j,6)
3150 next:goto3800
3200 rem*drahttabelle lesen
3205 print"[147]drahttabelle"
3210 print"dn","da","z1"
3220 forj=1to16
3230 printq1(j,1),q1(j,2),q1(j,3)
3240 next:print"weiter mit return":gosub3800
3250 print"[147]drahttabelle"
3260 print"dn","da","z1"
3270 forj=17to31
3280 printq1(j,1),q1(j,2),q1(j,3)
3290 next:goto3800
3400 rem*formatierung von c
3410 ifc<1e-9thenc=c*1e12:c$="pf":goto3440
3420 ifc<1e-6thenc=c*1e9:c$="nf":goto3440
3430 ifc<1e-3thenc=c*1e6:c$="uf"
3440 c=int(c*10)/10:return
3500 rem*rundung von n
3510 ny=n5-int(n5)
3520 ifny>.7thenn5=int(n5)+1:return
3530 ifny>.2thenn5=int(n5)+.5:return
3540 return
3600 rem*formatierung von l
3610 ifl<1e-6thenl=l*1e9:l$="nh":goto3650
3620 ifl<1e-3thenl=l*1e6:l$="uh":goto3650
3630 ifl<1thenl=l*1e3:l$="mh":goto3650
3640 l$="h"
3650 l=int(l+.5):return
3700 rem*formatierung von r
3710 ifr>1e6thenr=r/1e6:r$="mohm":goto3750
3720 ifr>1e3thenr=r/1e3:r$="kohm":goto3750
3730 ifr>1thenr$="ohm":goto3750
3740 ifr>1e-3thenr=r*1e3:r$="milli ohm"
3750 r=int(r*1000)/1000:return
3800 gosub900
3810 ifasc(y$)=13then3840
3830 return
3840 ifm3=1thenprintleft$(x3$,22);x1$:printleft$(x3$,23);x1$:m3=0
3850 return
5000 rem*gegentaktwandler berechnen
5010 print"[147]neueingabe ? j/n[146]":gosub6900:ify$<>"j"then5090
5020 t1=1:t2=.2:u1=0:u2=0:i1=0:u3=0:u4=0:b3=0:d1=0:b1=0:k1=0:a1=0:f1=0:x1=0:y1=0
5030 s4=0:m2=0:m3=0:m4=0:m5=0:j3=0:j3=0
5090 gosub20100
5100 print"[147]gegentaktwandler-daten"
5110 print"u prim in volt =";u1;:printtab(24):inputu1
5120 print"u sek in volt =";u2;:printtab(24):inputu2
5130 print"i sek in amp. =";i2;:printtab(24):inputi2
5140 print"u be in volt =";u3;:printtab(24):inputu3
5150 print"u diode volt =";u4;:printtab(24):inputu4
5160 print"b verst.-fakt. =";b3;:printtab(24):inputb3
5170 print"d kern-durchm. =";d1;:printtab(24):inputd1
5180 print"b kern-breite =";b1;:printtab(24):inputb1
5190 print"kz 1-3 kammer =";k1;:printtab(24):inputk1
5200 print"al in nhenry =";a1;:printtab(24):inputa1
5210 print"f in herz =";f1;:printtab(24):inputf1
5220 print"b max in tesla =";t2;:printtab(24):inputt2
5230 print"r vorwiderst. =";s4;:printtab(24):inputs4
5280 ifu1=0oru2=0ori2=0oru3=0oru4=0orb3=0ord1=0orb1=0ork1=0ora1=0orf1=0then5310
5290 ifs4=0then5310
5300 goto5320
5310 printx3$;t6$;""t4$:gosub6900:goto1000
5320 ifk1<1ork1>3thenprintx3$;t6$;""t4$:gosub6900:goto5000
5330 ifk1<>1thenk1=2
5335 rem*kerntabelle lesen
5340 forj1=1to15
5350 ifq(j1,1)=d1andq(j1,2)=b1andq(j1,3)=k1thenx1=q(j1,4):y1=q(j1,5):goto5370
5360 next
5370 ifx1=0ory1=0thenprintx3$;t3$;""t4$:printt5$" j/n":goto5390
5380 goto5410
5390 gosub900:ify$="j"thengosub3100
5400 goto5000
5410 rem*berechnung primaerwicklung
5420 ae=q(j1,7)
5430 n1=u1*1e6/(4*f1*t2*ae)
5440 l1=a1*1e-9*n1^2:l=l1:gosub3600:la=l:la$=l$
5450 m2=0:m4=0
5460 n5=n1:n=n5*4.2:gosub7000:ifm4=1thengoto5000
5470 e1=d3:e2=d4:na=n5:ma=m2:ra=r:ra$=r$:la=l:la$=l$:fa=fe:s1=r9
5480 rem*berechnung steuerwicklung
5500 n3=n1*2*u3/u1
5510 l3=a1*1e-9*n3^2:l=l3:gosub3600:lc=l:lc$=l$
5520 m2=0:m4=0
5530 n5=n3:n=n1*b3:gosub7000:ifm4=1thengoto5000
5540 e5=d3:e6=d4:nc=n5:mc=m2:rc=r:rc$=r$:lc=l:lc$=l$:fc=fe:s3=r9
5550 rem*berechnung sekundaerwicklung
5560 r4=s1*u2/u1
5570 r2=r4
5580 forj3=1to3
5590 n2=n1*(u2+u4+((r4+r2)*i2))/u1
5600 m2=0:m4=0
5610 n5=n2:n=n2*4.2:gosub7000:ifm4=1thengoto5000
5620 e3=d3:e4=d4:nb=n5:mb=m2:rb=r:rb$=r$:fb=fe:r2=r9
5630 l2=a1*1e-9*n2^2:l=l2:gosub3600:lb=l:lb$=l$
5640 next
5650 rem*nebenrechnung
5660 i3=i2*n2/n1/b3:i3=int((i3+.0005)*1000)/1000:s5=u3/i3:s6=((u1-.6)/.6)*s4
5680 s5=u3/i3:r=s5:gosub3700:s5=r
5690 s6=((u1-.6)/.6)*s4:r=s6:gosub3700:s6=r
5700 s5=u3/i3:r=s5:gosub3700:s5=r:s5$=r$
5710 p1=i1*u1:p1=int((p1+.0005)*1000)/1000
5720 pv=p1-u2*i2:pv=int((pv+.0005)*1000)/1000
5730 s6=((u1-.6)/.6)*s4:r=s6:gosub3700:s6=r:s6$=r$
5740 c1=10/(u2*i2*f1):
5750 s7=u5/i2:r=s7:gosub3700:r7=r:r7$=r$
5760 i1=i2*n2/n1:i1=int((i1+.0005)*1000)/1000
5770 p1=i1*u1:p1=int((p1+.0005)*1000)/1000
5780 pv=p1-u2*i2:pv=int((pv+.0005)*1000)/1000
5790 u5=u1*n2/n1:u5=int((u5+.05)*10)/10
5800 c1=10/(u2*i2*f1):c=c1:gosub3400:c1=c:c1$=c$
5810 s7=u5/i2:r=s7:gosub3700:r7=r:r7$=r$
5820 nl=e1^2*(NULL)/4*5.3*u1:nl=int(nl*1000)/1000:fd=(fa+fb+fc)*2
6000 print"[147]gegentakt-wandler-daten"
6010 print"nennleistung =";nl;"(5.3a/qmm)
6020 [153]"primaerwicklung";[163]24)"2 mal"
6030 [153]"n =";na
6040 [139]ma[178]0[167][153][163]24)"onwindungen"
6050 [139]ma[178]1[167][153][163]24)"on*2 wind.par."
6060 [153]"d nenn. =";e1;[163]24)"cul"
6070 [153]"d auss. =";e2;[163]24)"cul"
6080 [153]"sekundaerwicklung";[163]24)"2 mal"
6090 [153]"n =";nb
6100 [139]mb[178]0[167][153][163]24)"onwindungen"
6110 [139]mb[178]1[167][153][163]24)"on*2 wind.par."
6120 [153]"d nenn. =";e3;[163]24)"cul"
6130 [153]"d auss. =";e4;[163]24)"cul"
6140 [153]"steuerwicklung";[163]24)"2 mal"
6150 [153]"n =";nc
6160 [139]mc[178]0[167][153][163]24)"onwindungen"
6170 [139]mc[178]1[167][153][163]24)"on*2 wind.par."
6180 [153]"d nenn. =";e5;[163]24)"cul"
6190 [153]"d auss. =";e6;[163]24)"cul"
6200 [153]"weiter mit return":[141]3800
6210 [153]"loadgegentakt-wandler-daten"
6220 [153]"ic transistor =";i1;[163]24)"amp"
6230 [153]"ib transistor =";i3;[163]24)"amp"
6240 [153]"rb =";s5;[163]24)s5$
6250 [153]"r vorwiderst. =";s6;[163]24)s6$
6260 [153]"u sek. max =";u5;[163]24)"volt"
6270 [153]"c ladeelko =";c1;[163]24)c1$
6280 [153]"p1 ein leist. =";p1;[163]24)"watt"
6290 [153]"pv verl. =";pv;[163]24)"watt"
6300 [153]"p nenn =";nl;[163]24)"watt"
6310 [153]"fcu =";fd;[163]24)"kupferfuellf."
6320 [153]"weiter mit return":[141]3800
6500 [153]"loadgegentakt-wandler-daten"
6510 [153]"n prim. =";na
6520 [139]ma[178]0[167][153][163]24)"onwindungen"
6530 [139]ma[178]1[167][153][163]24)"on*2 wind.par."
6540 [153]"l prim. =";la;[163]24)la$
6550 [153]"rcu prim. =";ra;[163]24)ra$
6560 [153]"d nenn. prim. =";e1;[163]24)"cul"
6570 [153]"d auss. prim. =";e2;[163]24)"cul"
6580 [153]"fcu =";fa;[163]24)"kupferfuellf."
6610 [153]"n sek. =";nb;[163]24)"windungen"
6620 [139]mb[178]0[167][153][163]24)"onwindungen"
6630 [139]mb[178]1[167][153][163]24)"on*2 wind.par."
6640 [153]"l sek. =";lb;[163]24)lb$
6650 [153]"rcu sek. =";rb;[163]24)rb$
6660 [153]"d nenn. sek. =";e3;[163]24)"cul"
6670 [153]"d auss. sek. =";e4;[163]24)"cul"
6680 [153]"fcu =";fb;[163]24)"kupferfuellf."
6710 [153]"n steu. =";nc;[163]24)"windungen"
6720 [139]mc[178]0[167][153][163]24)"onwindungen"
6730 [139]mc[178]1[167][153][163]24)"on*2 wind.par."
6740 [153]"l steu. =";lc;[163]24)lc$
6750 [153]"rcu steu. =";rc;[163]24)rc$
6760 [153]"d nenn. steu. =";e5;[163]24)"cul"
6770 [153]"d auss. steu. =";e6;[163]24)"cul"
6780 [153]"fcu =";fc;[163]24)"kupferfuellf."
6790 [153]"noch einmal auflisten ? j/n":[141]900:[139]y$[178]"j"[167]6000
6800 [142]
6900 [141]900
6910 [139][198](y$)[178]13[167]6940
6930 [142]
6940 [139]m3[178]1[167][153][200](x3$,22);x1$:[153][200](x3$,23);x1$:m3[178]0
6950 [142]
7000 [143]
7010 d2[178]y1[173]([189]([188](n)[173]x1))
7020 [139]d2[177][178]1.068[167]d2[178][186]((d2[174]2)[173]2):m2[178]1
7030 [139]d2[177][178]1.068[167]d2[178]1.068:j2[178]31
7040 [129]j2[178]1[164]31
7050 [139]d2[178][179]q1(j2,2)[167]d3[178]q1(j2,1):d4[178]q1(j2,2):z1[178]q1(j2,3):[137]7070
7060 [130]
7070 n5[178][181]((n5[170].05)[172]10)[173]10:[141]3500
7080 n6[178][189](([188](y1[173]d4))[172]x1)
7090 fd[178]n5[173]n6:fe[178][181](fd[172]50[170].5)[173]100:[139]m2[178]1[167]fe[178]fe[172]2
7100 z2[178]q(j1,6):r[178](z2[172]n5[172]fd[170]100)[173]1000[172]z1:[139]m2[178]1[167]r[178]r[173]2
7110 r9[178]r:[141]3700
7120 [142]
20000 [143]*drucken
20010 [153]"loaddrucken":[153]x3$;t8$
20020 [141]900:[139]y$[179][177]"j"[167]20020
20050 [137]20200
20100 [143]*gegentaktwandler
20110 o1[178]1:[142]
20130 [143]*spule (hf-drossel)
20140 o2[178]1:[142]
20200 [139]o1[178]1[167]20300
20210 [139]o2[178]1[167]21200
20290 [142]
20300 [159]1,4
20310 [152]1,[199](14)[166]4)"gegentaktwandler-daten * eingabe":[152]1
20320 [152]1,[199](15)[166]8)"u prim. in volt =";u1
20330 [152]1,[199](15)[166]8)"u sek. in volt =";u2
20340 [152]1,[199](15)[166]8)"i sek. in amp. =";i2
20350 [152]1,[199](15)[166]8)"u be in volt =";u3
20360 [152]1,[199](15)[166]8)"u diode in volt =";u4
20370 [152]1,[199](15)[166]8)"b verst.-fakt. =";b3
20380 [152]1,[199](15)[166]8)"d kern-durchm. =";d1
20390 [152]1,[199](15)[166]8)"b kern-breite =";b1
20400 [152]1,[199](15)[166]8)"kz 1-3 kammer =";k1
20410 [152]1,[199](15)[166]8)"al in nhenry =";a1
20420 [152]1,[199](15)[166]8)"f in herz =";f1
20430 [152]1,[199](15)[166]8)"b max in tesla =";t2
20440 [152]1,[199](15)[166]8)"r vorwiderst. =";s4
20450 [152]1
20510 [152]1,[199](14)[166]4)"gegentaktwandler-daten * ausgabe"
20520 [152]1
20530 [152]1,[199](15)[166]8)"primaerwicklung";[199](16)[199](51)[199](50)"2 mal"
20540 [152]1,[199](15)[166]8)"n =";na;
20550 [139]ma[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
20560 [139]ma[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
20570 [152]1,[199](15)[166]8)"d nenn. =";e1;[199](16)[199](51)[199](50)"cul"
20580 [152]1,[199](15)[166]8)"d auss. =";e2;[199](16)[199](51)[199](50)"cul"
20590 [152]1
20600 [152]1,[199](15)[166]8)"ic transistor =";i1;[199](16)[199](51)[199](50)"amp"
20610 [152]1,[199](15)[166]8)"ib transistor =";i3;[199](16)[199](51)[199](50)"amp"
20620 [152]1,[199](15)[166]8)"sekundaerwicklung";[199](16)[199](51)[199](50)"2 mal"
20630 [152]1
20640 [152]1,[199](15)[166]8)"n =";nb;
20650 [139]mb[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
20660 [139]mb[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
20670 [152]1,[199](15)[166]8)"d nenn. =";e3;[199](16)[199](51)[199](50)"cul"
20680 [152]1,[199](15)[166]8)"d auss. =";e4;[199](16)[199](51)[199](50)"cul"
20690 [152]1
20695 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
20700 [152]1:[152]1
20710 [152]1,[199](15)[166]8)"l prim. =";la;[199](16)[199](51)[199](50)la$
20720 [152]1,[199](15)[166]8)"steuerwicklung";[199](16)[199](51)[199](50)"2 mal"
20730 [152]1
20735 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
20740 [152]1,[199](15)[166]8)"n =";nc;
20750 [139]mc[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
20760 [139]mc[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
20770 [152]1,[199](15)[166]8)"d nenn. =";e5;[199](16)[199](51)[199](50)"cul"
20775 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
20780 [152]1,[199](15)[166]8)"d auss. =";e6;[199](16)[199](51)[199](50)"cul"
20790 [152]1:[152]1
20800 [152]1,[199](15)[166]8)"ic transistor =";i1;[199](16)[199](51)[199](50)"amp"
20810 [152]1,[199](15)[166]8)"ib transistor =";i3;[199](16)[199](51)[199](50)"amp"
20820 [152]1,[199](15)[166]8)"rb =";s5;[199](16)[199](51)[199](50)s5$
20830 [152]1,[199](15)[166]8)"r vorwiderst. =";s6;[199](16)[199](51)[199](50)s6$
20840 [152]1,[199](15)[166]8)"u sek. max =";u5;[199](16)[199](51)[199](50)"volt"
20850 [152]1,[199](15)[166]8)"c ladeelko =";c1;[199](16)[199](51)[199](50)c1$
20860 [152]1,[199](15)[166]8)"p1 ein leist. =";p1;[199](16)[199](51)[199](50)"watt"
20870 [152]1,[199](15)[166]8)"pv verlust =";pv;[199](16)[199](51)[199](50)"watt"
20880 [152]1,[199](15)[166]8)"p nennleist. =";nl;[199](16)[199](51)[199](50)"watt"
20890 [152]1,[199](15)[166]8)"fcu =";fd;
20895 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
20900 [152]1:[152]1
20910 [152]1,[199](15)[166]8)"l prim. =";la;[199](16)[199](51)[199](50)la$
20920 [152]1,[199](15)[166]8)"rcu prim. =";ra;[199](16)[199](51)[199](50)ra$
20930 [152]1,[199](15)[166]8)"fcu prim. =";fa;
20935 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
20940 [152]1
20950 [152]1,[199](15)[166]8)"l sek. =";lb;[199](16)[199](51)[199](50)lb$
20960 [152]1,[199](15)[166]8)"rcu sek. =";rb;[199](16)[199](51)[199](50)rb$
20970 [152]1,[199](15)[166]8)"fcu sek. =";fb;
20975 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
20980 [152]1
20990 [152]1,[199](15)[166]8)"l steu. =";lc;[199](16)[199](51)[199](50)lc$
21000 [152]1,[199](15)[166]8)"rcu steu. =";rc;[199](16)[199](51)[199](50)rc$
21010 [152]1,[199](15)[166]8)"fcu steu. =";fc;
21020 [152]1,[199](15)[199](16)[199](51)[199](50)"kupferfuellfaktor"
21100 o1[178]0:[152]1:[160]1:[142]
21200 [159]1,4
21210 [152]1,[199](14)[166]4)"spule (hf-drossel)-daten * eingabe"
21220 [152]1
21230 [152]1,[199](15)[166]8)"l in henry =";l1
21240 [152]1,[199](15)[166]8)"d kern-durchm. =";d1
21250 [152]1,[199](15)[166]8)"b kern-breite =";b1
21260 [152]1,[199](15)[166]8)"kz 1-3 kammer =";k1
21270 [152]1,[199](15)[166]8)"al in nhenry =";a1
21280 [152]1,[199](15)[166]8)"f in herz =";f1
21290 [152]1
21300 [152]1,[199](14)[166]4)"spule (hf-drossel)-daten * ausgabe"
21310 [152]1
21340 [152]1,[199](15)[166]8)"n =";na;
21350 [139]ma[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"windungen"
21360 [139]ma[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 wind. parallel"
21370 [152]1,[199](15)[166]8)"d nenn. =";e1;[199](16)[199](51)[199](50)"cul"
21380 [152]1,[199](15)[166]8)"d auss. =";e2;[199](16)[199](51)[199](50)"cul"
21390 [152]1,[199](15)[166]8)"rcu =";ra;[199](16)[199](51)[199](50)ra$
21400 [152]1,[199](15)[166]8)"xl induktanz =";r2;[199](16)[199](51)[199](50)r2$
21410 [152]1,[199](15)[166]8)"q spulenguete =";qq;[199](16)[199](51)[199](50)r2$
21420 [152]1,[199](15)[166]8)"fcu =";fa;
21430 [152]1,[199](15)[166]8)[199](16)[199](51)[199](50)"kupferfuellfaktor"
21500 o2[178]0:[152]1:[160]1:[142]
50000 [143]*variablen lesen
50010 [134]q(15,7):[134]q1(31,3)
50110 [135]x1$,x2$,x3$,t1$,t2$,t3$,t4$,t5$,t6$,t7$,t8$
50200 [131]" "
50210 [131]"load",""
50220 [131]"bitte waehlen sie aus","bitte gewuenschte nummer eintippen"
50240 [131]"kerndaten nicht gef.","bitte neueingabe","kerndaten auflisten ?"
50250 [131]"eingabe unvollstaendig","aenderung erwuenscht von:?"
50260 [131]"drucker eingeschaltet ?"
51000 [143]*kerndaten
51100 [129]j[178]1[164]15
51200 [129]w[178]1[164]7
51205 [135]w1
51210 q(j,w)[178]w1:[130]
51220 [130]
51400 [131]9,5,1,1.882,1.8565,18.5,10,11,7,1,1.836,2.3654,22,16,11,7,2,1.839
51420 [131] 2.5075,22,16,14,8,1,1.828,3.0292,28,25,14,8,2,1.832,3.2114,28,25
51430 [131] 18,11,1,1.839,3.8683,35.6,44
51440 [131] 18,11,2,1.861,4.1204,35.6,44,22,13,1,1.848,5.3375,44,63
51450 [131] 22,13,2,1.825,5.9283,44,63
51460 [131] 26,16,1,1.849,6.3362,52,94,26,16,2,1.834,6.9018,52,94
51470 [131] 30,19,1,1.835,7.8774,60,136
51480 [131] 30,19,2,1.831,8.5916,60,136,36,22,1,1.827,9.1729,73,201
51490 [131] 36,22,2,1.824,10.0917,73,201
52000 [143]*drahttabelle
52100 [129]j[178]1[164]31
52200 [129]w[178]1[164]3
52205 [135]w1
52210 q1(j,w)[178]w1:[130]
52220 [130]
52400 [131] .032,.04,21.44,.04,.05,13.72,.05,.062,8.781,.063,.078,5.531
52420 [131] .071,.088,4.355,.08,.098,3.43,.09,.11,2.71,.1,.121,2.195
52440 [131] .112,.134,1.75,.125,.149,1.405,.14,.166,1.12,.16,.187,.8575
52460 [131] .18,.209,.6775,.2,.23,.5488,.224,.256,.4375,.25,.284,.3512
52480 [131] .28,.315,.28,.315,.352,.2212,.355,.395,.1742,.4,.442,.1372
52500 [131] .45,.495,.1084,.5,.548,.08781,.56,.611,.07,.63,.684,.05531
52520 [131] .71,.767,.04355,.75,.809,.03903,.8,.861,.0343,.85,.913,.03038
52540 [131] .9,.965,.0271,.95,1.017,.02432,1,1.068,.02195
55000 [142]
58000 [143]*drucken
58100 [159]1,4
58110 [152]1,"kerntabelle":[152]1
58120 [152]1,"d-kern";
58130 [152]1,[199](16)[199](49)[199](48)"b-kern";[199](16)[199](50)[199](48)"kz";
58140 [152]1,[199](16)[199](51)[199](48)"x1";[199](16)[199](52)[199](48)"y1";
58150 [152]1,[199](16)[199](53)[199](48)"ln";[199](16)[199](54)[199](48)"ae"
58160 [152]1
58200 [129]j[178]1[164]15
58210 [152]1,q(j,1);[199](16)[199](49)[199](48)q(j,2);
58220 [152]1,[199](16)[199](50)[199](48)q(j,3);[199](16)[199](51)[199](49)q(j,4);
58230 [152]1,[199](16)[199](52)[199](48)q(j,5);[199](16)[199](53)[199](49)q(j,6);
58240 [152]1,[199](16)[199](54)[199](48)q(j,7)
58250 [130]
58300 [152]1:[152]1
58310 [152]1,"drahttabelle":[152]1
58320 [152]1,"d-nenn";
58330 [152]1,[199](16)[199](49)[199](48)"d-aussen";
58340 [152]1,[199](16)[199](50)[199](48)"r ohm/m"
58400 [129]j[178]1[164]31
58410 [152]1,q1(j,1);[199](16)[199](49)[199](48)q1(j,2);
58420 [152]1,[199](16)[199](50)[199](48)q1(j,3)
58450 [130]
59900 [152]1:[160]1:[142]